home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / arexx / zedrexx.lha / ZedREXX / REXX / ButtonG.zrx next >
Text File  |  1994-08-07  |  2KB  |  88 lines
  1. /* $VER: buttong.zrx 1.0 (10.09.93)
  2.  * Test script for the Great and Mighty ZedREXX
  3.  * Copyright (c) 1993-1994 Reality Check, Inc.
  4.  *
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. SIGNAL ON ERROR
  9. SIGNAL ON HALT
  10.  
  11. /* Application Data */
  12. 'zInterface zButtonG'
  13.     'zImage Magnify Width=11 Height=9 Depth=1 Data="3E006300C180C180C18063003EC000E00060"'
  14.     'zImage Folder  Width=11 Height=9 Depth=1 Data="7800840087E0F8208020802080208020FFE0"'
  15.     'zImage Clients File="ZedREXX:images/clients.brush"'
  16.     'zImage Projects File="ZedREXX:images/projects.brush"'
  17.     'zImage Time File="ZedREXX:images/time.brush"'
  18.     'zImage Expenses File="ZedREXX:images/expenses.brush"'
  19.     'zImage Invoicing File="ZedREXX:images/invoicing.brush"'
  20.     'zImage ZrxIcon File="ZedREXX:icons/zedrexx.info"'
  21.  
  22.     'zWindow Main Label "Button Example" Open Centered Vertical CloseEvent ChildMaxWidth'
  23.     'zMenu Project'
  24.         'zObject Button Quit Label "&Quit" SelectEvent'
  25.     'zEndMenu'
  26.     'zGroup Horizontal Justification Left ChildMaxHeight'
  27.         'zObject ButtonG IB1 Image=ZrxIcon'
  28.         'zObject TextDisplay IBT Value="ZedREXX logo" NoBorder'
  29.     'zEndGroup'
  30.     'zObject Line'
  31.     'zGroup Horizontal ChildMaxHeight NoMargX'
  32.         'zObject TextEntry TF1 MaxChars 255 NumColumns 30 Fill'
  33.         'zObject ButtonG TF1G Glyph=Magnify UpEvent'
  34.     'zEndGroup'
  35.     'zGroup Horizontal ChildMaxHeight NoMargX'
  36.         'zObject TextEntry TF2 MaxChars 255 NumColumns 30 Fill'
  37.         'zObject ButtonG TF2G Glyph=Folder UpEvent'
  38.     'zEndGroup'
  39.     'zObject Line'
  40.     'zGroup Horizontal Justification Left NoMargX'
  41.         'zObject ButtonG B1 Image=Clients'
  42.         'zObject ButtonG B2 Image=Projects'
  43.         'zObject ButtonG B3 Image=Time'
  44.         'zObject ButtonG B4 Image=Expenses'
  45.         'zObject ButtonG B5 Image=Invoicing'
  46.     'zEndGroup'
  47.     'zObject Line'
  48.     'zGroup Horizontal Justification Center'
  49.         'zObject Button OK Label "&OK" SelectEvent'
  50.     'zEndGroup'
  51.     'zEndWindow'
  52. 'zEndInterface'
  53.  
  54. /* Turn everything on */
  55. 'zDoMethod zButtonG Activate'
  56.  
  57. /* Enter the event loop */
  58. DO FOREVER
  59.  
  60.     /* Wait for something to happen */
  61.     'zWaitForEvent stem.'
  62.  
  63.     /* Do something with the event */
  64.     INTERPRET "zRC="RESULT"()"
  65. END
  66.  
  67. Halt:
  68. OK_Select:
  69. Quit_Select:
  70. zButtonG_Quit:
  71.     EXIT
  72.  
  73. Error:
  74.     IF RC=20 THEN DO
  75.     SAY "Must be run within zrx"
  76.     EXIT
  77.     END
  78.     SAY "Error" RC "at line" SIGL " (errnum="zErrNum")"
  79.     EXIT
  80.  
  81. OK_Select:
  82. Main_Close:
  83.     EXIT
  84.  
  85. TF1G_Change:
  86. TF2G_Change:
  87.     Return 0
  88.